home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 107
/
Tiger_Disk_107_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende - 121 -
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
551b
|
12 lines
5 poke53280,.:poke53281,.:printchr$(147):a=a+8:i=i+(a+1)
10 s=54272:pokes+24,15:forz=ato42:pokes+4,33:pokes+6,248:pokes+5,9:poke646,z
15 print" [145]";
20 pokes+4,49:pokes+6,255:pokes+4,81:forn=1to(rnd(0)*i/a):poke646,n
25 print"[180][181][161] [180][180][170][170] [161][181][180][145]";:i=i+1
30 pokes+22,139:pokes+4,17:poke646,z
35 print" [164][164][164][164][164] [163][163][163] [163][163][163] [164][164][164][164][164] [145]";:poke646,n+1
40 pokes+5,9*11:pokes+1,n+7:pokes+4,29:pokes+4,32:i=i+a/64
45 print"[146][223][163][163][163][163]ende[163][163][163][163][223] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [145][157] [157] [157] [157]";
50 next:print" [163][163][163][163][157] [157] [157] [157][163][163][163][163][145]":next:pokes+4,0
0